home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / WINDOWS / MSWLOG12.ARJ / TOWERCNT.LG < prev    next >
Text File  |  1990-06-11  |  230b  |  8 lines

  1. to towercnt :tn
  2. !
  3. ! Called by HANOI. Returns the current number of disks on tower :tn,
  4. ! as stored in the globals tower1, tower2, and tower3.
  5. !
  6. if :tn = 1 [output :tower1] [if :tn = 2 [output :tower2] [output :tower3]]
  7. end
  8.